unit FCrudContasReceber;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, FContasReceberFt;

type
  TFCrudContasReceberFt = class(TForm)
    grupoLancamentoContasReceber: TGroupBox;
    txtIdContasReceber: TEdit;
    txtValor: TEdit;
    botaoSalvar: TSpeedButton;
    botaoSair: TSpeedButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    txtObservacoes: TMemo;
    txtDataRecebimento: TDateTimePicker;
    botaoAlterar: TSpeedButton;
    procedure botaoSalvarClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure botaoSairClick(Sender: TObject);
    procedure botaoAlterarClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function limparDados : Boolean;    
  end;

var
  FCrudContasReceberFt: TFCrudContasReceberFt;

implementation

uses UContasReceberCt, UContasReceberFt, URequestContasReceber;

{$R *.dfm}

procedure TFCrudContasReceberFt.botaoSalvarClick(Sender: TObject);
begin
  req.acao := 'inserir';
  req.valor := StrToFloat(txtValor.Text);
  req.data_recebimento := txtDataRecebimento.Date;
  req.observacoes := txtObservacoes.Lines.Text;

  TContasReceberFt.service(req);
  self.limparDados;
end;

procedure TFCrudContasReceberFt.FormCreate(Sender: TObject);
begin
  inherited;
    // self.objContasReceberCt := TContasReceberCt.Create;
end;

function TFCrudContasReceberFt.limparDados : Boolean;
begin
  // self.txtDataRecebimento.Text := '';
  self.txtValor.Text := '';
  self.txtObservacoes.Text := '';

  self.txtDataRecebimento.SetFocus;
end;

procedure TFCrudContasReceberFt.FormDestroy(Sender: TObject);
begin
    // self.objContasReceberCt.Free;
  inherited;
end;

procedure TFCrudContasReceberFt.botaoSairClick(Sender: TObject);
begin
   Close;    
end;

procedure TFCrudContasReceberFt.botaoAlterarClick(Sender: TObject);
begin
  req.acao := 'atualizar';
  req.id_contasreceber := StrToInt(txtIdContasReceber.Text);
  req.valor := StrToFloat(txtValor.Text);
  req.data_recebimento := txtDataRecebimento.Date;
  req.observacoes := txtObservacoes.Lines.Text;

  TContasReceberFt.service(req);
  self.limparDados;
  self.Close;
end;

end.
